Private Sub btn˻_Click()

    Dim ̸ As Range
    Dim ã̸ As Range
    Dim ڵ As Range,  As Range
    Dim r As Integer, c As Integer
    Dim Ű As String
    Dim ù°ġ As String

    Ű = txt˻.Value

    If Len(Ű) > 0 Then
    
        Set ̸ = Range("B2").CurrentRegion.Columns(2)
        Set ã̸ = ̸.Find(What:=Ű, LookAt:=xlPart)
        
        If Not ã̸ Is Nothing Then
        
            ù°ġ = ã̸.Address
            lvw.ListItems.Clear
            
            Do
                
                If ã̸.Row > 2 Then
                
                    With lvw
                    
                        .ListItems.Add Text:=ã̸.Offset(, -1).Value
                        r = r + 1
                        
                        For c = 1 To 2
                            .ListItems(r).SubItems(c) = ã̸.Offset(, c - 1).Value
                        Next
                    
                    End With
                                
                End If
                                
                Set ã̸ = ̸.FindNext(ã̸)
                
            Loop Until ã̸.Address = ù°ġ
            
        Else
            
            lvw.ListItems.Clear
                
        End If
        
    End If

End Sub
